home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PsL Monthly 1993 December
/
PSL Monthly Shareware CD-ROM (December 1993).iso
/
prgmming
/
win
/
pascal
/
player.exe
/
WAVEUNIT.PAS
< prev
Wrap
Pascal/Delphi Source File
|
1993-05-15
|
1KB
|
35 lines
unit WaveUnit;
interface
uses
WinTypes;
function OpenMci(PWindow: HWnd; FileName, DeviceType: PChar): Boolean;
procedure CloseMci;
procedure PlayMci;
procedure SetTimeFormatMS;
function GetInfo(S: PChar): PChar;
function GetNumTracks: LongInt;
function GetLen: Longint;
procedure PlayFromTo(Start, Finish: Byte);
function DoRecord(MMSecs: LongInt): LongInt;
function SaveFile(FileName: PChar): Boolean;
function GetMode: LongInt;
function GetLocation: LongInt;
implementation
function OpenMci; external 'WAVEINFO' index 1;
procedure CloseMci; external 'WAVEINFO' index 2;
procedure PlayMci; external 'WAVEINFO' index 3;
procedure SetTimeFormatMS; external 'WAVEINFO' index 4;
function GetInfo; external 'WAVEINFO' index 5;
function GetNumTracks; external 'WAVEINFO' index 6;
function GetLen; external 'WAVEINFO' index 7;
procedure PlayFromTo; external 'WAVEINFO' index 8;
function DoRecord; external 'WAVEINFO' index 9;
function SaveFile; external 'WAVEINFO' index 10;
function GetMode; external 'WAVEINFO' index 11;
function GetLocation; external 'WAVEINFO' index 12;
end.